home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / schwieri.dxr / Postit_10_Postit Main.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  2.4 KB  |  63 lines
  1. global gPostitSprite
  2.  
  3. on PostitPrepare
  4.   RememberSpriteCursors()
  5.   SpriteCursor("all", 0)
  6.   DeactivateSpritesExcept([gPostitSprite + 2, gPostitSprite + 3])
  7.   if the castNum of sprite 44 <> the number of member "PostIt" then
  8.     set the puppet of sprite 44 to 1
  9.     set the castNum of sprite 44 to the number of member "PostIt"
  10.     set the locH of sprite 44 to 180
  11.     set the locV of sprite 44 to 240
  12.     set the width of sprite 44 to the width of cast "PostIt"
  13.     set the height of sprite 44 to the height of cast "PostIt"
  14.     set the ink of sprite 44 to 36
  15.   end if
  16.   if the castNum of sprite 45 <> the number of member "PostIt Unten" then
  17.     set the puppet of sprite 45 to 1
  18.     set the castNum of sprite 45 to the number of member "PostIt Unten"
  19.     set the locH of sprite 45 to 185
  20.     set the locV of sprite 45 to 302
  21.     set the width of sprite 45 to the width of cast "PostIt Unten"
  22.     set the height of sprite 45 to the height of cast "PostIt Unten"
  23.     set the ink of sprite 45 to 36
  24.   end if
  25.   if the castNum of sprite 48 <> the number of member "PostIt Beenden" then
  26.     set the puppet of sprite 48 to 1
  27.     set the castNum of sprite 48 to the number of member "PostIt Beenden"
  28.     set the locH of sprite 48 to 175
  29.     set the locV of sprite 48 to 234
  30.     set the width of sprite 48 to the width of cast "PostIt Beenden"
  31.     set the height of sprite 48 to the height of cast "PostIt Beenden"
  32.     set the ink of sprite 48 to 36
  33.   end if
  34.   repeat with i = gPostitSprite to gPostitSprite + 4
  35.     set the puppet of sprite i to 1
  36.     set the visible of sprite i to 1
  37.   end repeat
  38.   SpriteCursor([gPostitSprite + 2, gPostitSprite + 3], ["CursorFinger", "CursorFingerMask"])
  39. end
  40.  
  41. on PostitEnde
  42.   repeat with i in [44, 45, 48]
  43.     set the visible of sprite i to 0
  44.   end repeat
  45.   updateStage()
  46.   PostitPrepare()
  47.   set the castNum of sprite (gPostitSprite + 2) to the number of member "Postit Nein"
  48.   set the castNum of sprite (gPostitSprite + 3) to the number of member "Postit Ja"
  49.   set the castNum of sprite (gPostitSprite + 4) to the number of member "Postit Beenden"
  50.   updateStage()
  51.   playsound(1, "pgmende", 1)
  52.   pause()
  53. end
  54.  
  55. on PostitDelete
  56.   PostitPrepare()
  57.   set the castNum of sprite (gPostitSprite + 2) to the number of member "Postit Nein"
  58.   set the castNum of sprite (gPostitSprite + 3) to the number of member "Postit Ja"
  59.   set the castNum of sprite (gPostitSprite + 4) to the number of member "Postit Sp l├╢schen"
  60.   updateStage()
  61.   pause()
  62. end
  63.